aspToHtml_createHTML_sort.asp 深度学习(asp)网址导航 v4.0.1 - ASP源码程序

www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\admin\aspToHtml\aspToHtml_createHTML_sort.asp
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../"	'相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../ConnDB.asp"-->
<!--#include file="../../include/Function.Common.asp"-->

<!-- #include file="../include/Function.Manage.Config.asp"-->

<!--#include file="../../include/Deep.Class.Template.asp"-->

<!--#include file="../../include/function.tag.template.asp"-->
<!--#include file="../../include/function.tag.url.asp"-->
<!--#include file="../../include/function.tag.common.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>aspToHtml管理</title>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />

</head>

<body  id="bodyBg1">
<br />
&nbsp; <a href="aspToHtml_Manage.asp">生成html管理</a>
<hr color="#0099FF" size="1" />
<br />
<dl class="manageContent">
    <dt>生成html管理</dt>
    <dd>
    	<br />
<%

' 1  从Template表中取得模板代码
projectRoot2htmlPath="../../"	'html文件相对项目位置
isCreateHTML=true	'提供标签函数 生成静态页判断  true 生成静态页操作
Dim strHtml

'--------------------------
sqlSortlHTML= "select * from deep_WebSort order by fid_Sort"
Set rsSortlHTML=conn.execute(sqlSortlHTML)

if rsSortlHTML.eof and rsSortlHTML.bof then
	'response.Write("暂时没有链接")
else
  while (not rsSortlHTML.eof)
	response.Flush()
	strHtml=""



' 2  将模板中的{$  }括起来的标签替换成相应的 数据 ，
	id_Sort=rsSortlHTML("fid_Sort")
	sql="select * from deep_WebSort where fid_Sort=" & id_Sort
	set rsMeta=conn.execute(sql)
	if not(rsMeta.eof and rsMeta.bof) then
		sortName=rsMeta("fname")
		Site_MetaKeywords=Site_MetaKeywords
		Site_MetaDescription=rsMeta("ftip")
	end if
	rsMeta.close
	set rsMeta=nothing

	dim oDeepTemplate
	set oDeepTemplate=new Deep_Template
		oDeepTemplate.templates_dir= projectRootPath & "themes/"&site_theme&"/"
		'template=oDeepTemplate.readTemplateFile("index.htm")
		oDeepTemplate.readTemplateFile("sort.template.html")	'调入文件
		'oDeepTemplate.replaceTag "../base.css","themes/base.css"
		oDeepTemplate.replaceText "theme.css",projectRoot2htmlPath&"themes/"&site_theme&"/theme.css"
		oDeepTemplate.replaceText "js/siteState.asp",projectRoot2htmlPath&"js/siteState.asp"

		do_replace_siteConfig(oDeepTemplate)	'替换网站基本配置信息标签
		'导航
		call do_replace_Channel()
		'广告
		call do_replace_AD()
		
		'response.Write( oDeepTemplate.template )
		oDeepTemplate.replaceTag "custom_sort_url",getHTML_custom_sort_url
			
		' 参数	{$fastLogin(46,8)}
		oDeepTemplate.replaceTagParameter "fastLogin","getHTML_fastLogin"
		oDeepTemplate.replaceTag "urlSort",getHTML_urlSort
		oDeepTemplate.replaceTag "friendLink",getHTML_friendLink
		oDeepTemplate.replaceTag "siteInfoStatistic",getHTML_siteInfoStatistic
		
		'---频道--------------------
		'if(fparentID<>0)then
		  strSiteNavClassList = siteNavClassList("",fparentID,"select fid,fparentID,fname from deep_Channel where fisView=1 and fid=") 
		'end if
		
		oDeepTemplate.replaceTag "siteNavBar",strSiteNavClassList
		oDeepTemplate.replaceTag "sortName",sortName
		'oDeepTemplate.replaceTag "channel_contentTitle",fcontentTitle
		'oDeepTemplate.replaceTag "channel_content",fcontent
		oDeepTemplate.replaceTag "sortList",getHTML_sortList(id_Sort , sortName)
		'
		'------------------------
		oDeepTemplate.replaceTag "urlList",getHTML_urlList(id_Sort,searchText)
		
		'oDeepTemplate.display()	'显示
		strHtml=oDeepTemplate.template

	set oDeepTemplate=nothing

' 3 FSO生成HTML文件
HtmlDir =projectRootPath & "html/sort/"
fileName="sort_"
tmpFileName = HtmlDir & fileName & rsSortlHTML("fid_Sort") & ".htm"

'建立目录名,生成的文件将按存放在此处 
set fso = server.createobject("Scripting.FileSystemObject") 
if not fso.folderexists(server.mappath( HtmlDir ) ) then '如果该目录不存在 
	fso.createfolder(server.mappath( HtmlDir ) ) '创建一个文件夹 
end if 

set fso = server.createobject("Scripting.FileSystemObject") 
Set fout = fso.CreateTextFile( Server.MapPath(tmpFileName) )
fout.WriteLine strHtml
fout.close()
set fout=nothing
set fso=nothing


response.write "频道内容生成静态页成功! (" &tmpFileName& ")<br />"

		rsSortlHTML.moveNext
	wend
end if
rsSortlHTML.close
set rsSortlHTML=nothing
%>
        <br />
    </dd>
</dl>
<br />

</body>
</html>
<%
Call CloseConnDB()
%>